home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Poly3.cpp < prev    next >
C/C++ Source or Header  |  1999-01-29  |  1KB  |  36 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Poly3.h"
  6. //---------------------------------------------------------------------------
  7. //  TOButton mu▀ als Komponenten installiert sein !!!
  8. //---------------------------------------------------------------------------
  9. #pragma link "obutton1"  // Datei OButton1.obj
  10. #pragma resource "*.dfm"
  11.  
  12. TStringList *Anzeige;
  13. TForm1 *Form1;
  14.  
  15. //---------------------------------------------------------------------------
  16. __fastcall TForm1::TForm1(TComponent* Owner)
  17.     : TForm(Owner)
  18. {
  19. }
  20. //---------------------------------------------------------------------------
  21. void __fastcall TForm1::OButton1Click(TObject *Sender)
  22. {
  23.   Label1->Caption = Anzeige->Strings[random(5)];
  24. }
  25. //---------------------------------------------------------------------------
  26. void __fastcall TForm1::FormCreate(TObject *Sender)
  27. {
  28.   randomize ();
  29.   Anzeige= new TStringList;
  30.   Anzeige->Add ("Hallo!");
  31.   Anzeige->Add ("Hoppla!");
  32.   Anzeige->Add ("Oha!");
  33.   Anzeige->Add ("Oh jeh!");
  34.   Anzeige->Add ("Nun denn!");
  35. }
  36. //---------------------------------------------------------------------------